t1=0:100
t2=90:100

f1.1=sin(t1/5)+1/2*sin(t1*10)+t1/10
f1.2=sin(t2/5)+1/2*sin(t2*10)+t2/10

f2.1=1/2*sin(t1*10)+t1/10
f2.2=1/2*sin(t2*10)+t2/10

f3.1=1/2*sin(t1*10)
f3.2=1/2*sin(t2*10)


pdf(file='1.pdf',width=5,height=3)
par(mar=c(0,0,0,0))
plot(1,type='n',xlim=c(0,100),ylim=c(0,12),ax=F,xlab='', ylab='');
lines(t1,f1.1,lwd=5);points(t2[11],f1.2[11],col='blue',bg='blue',pch=21,cex=1.5)
dev.off()


pdf(file='2.pdf',width=5,height=3)
par(mar=c(0,0,0,0))
plot(1,type='n',xlim=c(0,100),ylim=c(0,12),ax=F,xlab='', ylab='');
lines(t1,f1.1,lwd=5);lines(t2,f1.2,lwd=5,col='red')
dev.off()

pdf(file='3.pdf',width=5,height=3)
par(mar=c(0,0,0,0))
plot(1,type='n',xlim=c(0,100),ylim=c(0,12),ax=F,xlab='', ylab='');
lines(t1,f2.1,lwd=5);points(t2[11],f2.2[11],col='blue',bg='blue',pch=21,cex=1.5)
dev.off()

pdf(file='4.pdf',width=5,height=3)
par(mar=c(0,0,0,0))
plot(1,type='n',xlim=c(0,100),ylim=c(0,12),ax=F,xlab='', ylab='');
lines(t1,f2.1,lwd=5);lines(t2,f2.2,lwd=5,col='red')
dev.off()

pdf(file='5.pdf',width=5,height=3)
par(mar=c(0,0,0,0))
plot(1,type='n',xlim=c(0,100),ylim=c(-5,5),ax=F,xlab='', ylab='');
lines(t1,f3.1,lwd=5);points(t2[11],f3.2[11],col='blue',bg='blue',pch=21,cex=1.5)
dev.off()

pdf(file='6.pdf',width=5,height=3)
par(mar=c(0,0,0,0))
plot(1,type='n',xlim=c(0,100),ylim=c(-5,5),ax=F,xlab='', ylab='');
lines(t1,f3.1,lwd=5);lines(t2,f3.2,lwd=5,col='red')
dev.off()
